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A MISCELLAXEY OF CONVERT PRCGRAVHIKG 



CONVERT shares with other programming languages the circumstance 
that it is easier to evaluate the language and to learn its use if it is 
possible to scrutinize a representative sample of programs which effect 
typical but 9 imp la and easily understood calculations. Consequently we 
have gathered together several examples of varying degrees of difficulty 
in order to shov CONVERT in action. In each case the CONVERT program „ 
written as a LISP function ready for execution in CTSS> is shown „ together 
with the results of its application to a small variety of arguments > and 
a general explanation of the program., its intent t form of its arguments and 
method of its operation. When the notation CLOCK ({)) .** CLOCK (T) 
appears, the tirae of execution has been determined, and is shown p in tenths 
of seconds immediately after the result has been printed. 

Since there is no particular organization to the selection of 
examples, ve here give a brief catalogue of then. 



(REVERS L) 
(FLIP L) 
(CONCAT A B) 
(TIE L) 
(MERGE A B) 
(UNHERGE L) 

(NCKUy. E) 
(KOKUM* E) 
(VOXELS W) 

(STAGGER L) 

(GATHER L) 

(SUBSETS S) 



reverses the order of eleraeats on a list 

reverses a list as well as all it* sublists 

a CONVERT version of APPEND 

a multiple APPEKD 

collates the elements of two lists 

produces two lists, each containing alternate 
elements of the list L. 

erases all numbers from the top level of a list 

erases the numbers from all levels of a list 

forms a list of all vowels in a list of letters 
or other expressions 

places the elements of L alternately at the beginning 
and end of a new list 

inverts the operation of STAGGER M collecting together 
elements from the beginning aud end of a list 

:•"■: ■!..-- =■■ :".i I Zl:- nliL sO : .-: .■!" the .- ■■-■ t ':.. 



(FEi^n. i.v.:_; :..-; s .».•:.-,; c=. • list vf ..1: ;••■.,.-::•:._ ^vriiu.-.tattons of the 
elements of the list S 



(*MARX X L) 



shows ihe location of all X's in the list L by placing 
a star instead of any expression which nowhere contr 
an X 



(rOBMTL L) 
(WORD W) 
(PERGEN S) 

(PB X Y) 

(PATHS ABM) 

(POLY) 



transforms n-ary Infix algebraic expressions to the 

binary prefix form 

makes string transformations derived from the word 
problem 

lists all the permutations of the set S* by first 
generating a skeleton which will then generate the 
permutat ions 

calculates the Foisson Bracket of two algebraically 
defined (polynomials) X and Y 

lists all paths between the points A and B in the 
network whose primitive links are given by X 

an Interactive polynomial handling pr-a^tJK which 
will read an arbitrarily complicated polynomial, 
reduce it to an internal form which is a list of 
coefficients of its powers „ output it in two fonts, 
evaluate it > etc 



The function (REVERS L) reverses the top level, elements of its arguaent 

L; i. e M ifLisCABCD], then (RE7EEB L) la (DCBA). 

In this example^ the first argument of CONVERT is () F that is, the 
dictionary M is empty. In the dictionary I* second argument of the function 
CONVERT, we declare to X and {XXX) as variables in the ITAR mode. 
The third argument 1$ L, the expression we want to reverse. Finally, the fourth 
atgwtnent contains one rule-set named CL F which contains a single rule: 

( (X XXX)' <(*BEGN* (XXX)) X) ) 

The laft half of this rule Is the pattern (X XXX). which dissects the 

list we want to reverse into CAR and CDR. If this dissection Is possible,, 

that Is, If (X XXX) matches, we proceed to replace the skeleton ((*BEGS* (XXX)) X), 

which Is compo-ssed of two pieces In this case, namely (*BECK* (XXX)) and X. 

The value of (*BECN* (XXX)) Is computed recursively, applying the entire 
original CONVERT program to (XXX) — we are reversing the list (XXX) — and 

then taking the contents of this result as its value- 

The value of X Is the expression which matched vith it during the pattern 
coHparisson* that is, the CAR of the Use to be reversed. 

Having computed the values of the skeletons C*BEGS* (XXX)) and X, we 
simply put them together, as the skeleton ((«BEGtt* (XXX)) X) ±mpli(&s > and this 
is the result of our transforation. 



U EVE 3S (LA:m,\ (L) C CONVERT 

C) 

CQU^TEC X (XXX) )) 

L 

CQUHEC CI ( 

( (X XXX) U*3£G:J* tXXJO) X) ) 

))) 
>n 

)) 

r convrt 
J 051,5 

loa i ((rev**r$) ) 
.41 L 

revers ( C) ) 

NIL 

rev^rs ((1 23) 

(2 1) 

rev^rs (£1 b c i e F * !i>) 
(3 fi f E 7 C 9 A) 

rev&rs (( a b c (1 j) j Q (( = *./5) f ?)) 
£G F ((« * /)] ■ ) Ci 2) v 3 M 

3 top 

R 1.055+7. 35J ' 



prlnc flip 11*0 

vt 057.3 

.FLIP U$P 02^07 3057.3 

00010 QEFIHSCC 

03029 (FLI? (LM30A (L) (COriVERT 

O0350 <) 

00040 (QUOTE { K (XXX) )) 

03050 ,L 

00063 (1U0TS < CI C 

00070 ( tX XXX) (f*S£GiN* (XXX)) £-3E3Ff- X)) ) 

03000 })) 

00030 m 

001O3 )) 
R « 700 + .250 



r con v ft 
H 057.3 
loaJ ((flip)) 
NIL 

Fl ipC () ) 
NIL 

fl Ip <(1 2)) 
(2 1) 

fllpKabc JePsM) 
(II !3 F E p c a A) 

flip (( a be CL 2) J e ((■ * /)) f g)) 
«S ? (C/ * ->) E (2 1) C 3 A) 

flip UU> tb (e J) *} f « C'1 i ((J k) T> in) n)> 
Cti M CL CK -ili I MJ 1 F (E O C) 5) (A>) 

stop 

R 1,750+6,200 

- 

The function (FLIP L) reverses the list L, as well as all its sublists, 
etc** fit fill levels r 

Compare the definition vith that of (REVERS L) ; the rule-set CI contains 

now the rule f (x XXX) [{*BE68T* £JCK)> (-BEGN- X)) ) 

that is, the skeleton (=BEffl?= X) now x*p laces X. Bftd is responsable for 
Applying the entire function to ehe clement X. allowing, in this way 
reversion in all levels s while che skeleton (*BECN* (XXX) > flips the CDR. 

The terainal conditions are bidden in this exaaple;, if L is an atom or 
an empty list, (FLIP L) is L itself, vithout change- This could he acconplis'nod 
with $.i\ additional rule , - ,.._. s, 

which is untiecces?ary because, a* wft know, when we exhaust a rule-set without 
finding any match for our exprattlan, we return this last vithGut change as 
a value of the transformation* 



4 



(CONCAT A B) is similar to the lisp function (APPEND A S); rakes « 
single list of the elements of two lists. 

We start by defining CONCAT as a lisp function of two variables, 
A and E, uhose value is computad with the help of the CONVERT function. 
The arguments of convert are; 

() — the dictionary H is enpty; no mode declarations are neccessary. 
{ (XXX) (YYY) ) — We define in the dictionary I to (XXX) and (YYY) 

as fragment variahles in the UAR or undefined mode. 
(LIST A B) E, the third argument of CONVERT, is a list contai- 
ning the two lists ue vant to tie together. 

------ - — R t the fourth argument of C03VERT, contains one 

set of rules, with the naae CI, with a simple rule:. 
( ((XXX) (YYY)) (XXX YYY) ) 



pr i nt concat 1 i sp 
W 701.6 

CONCAT LISP 03/24 0701*7 

DEFINE(( 

(CONCAT (LAHBDA (A B) (CONVERT 

O 

(QU07E( <XXX) (YYY) )) 

(LIST A 3) 

(QUOTE (CI ( 

( (<XXX> (YYY)) (XXX YYY) ) 

m 
n 

R .483+. 266 



t convrt 
W 702.2 

load ((concot}) 
NIL 

concat ( () O ) 
NIL 

concat Kabc) III 5 U) 
(A 3 C 1 2 3 4) 

concat ( (a b c (d) e f) (g (h) i j k 1 mU 
(A 8 C (D» E F G (H) I J K L M> 

stop 

R .650+3,383 

concat is similar to the lisp function APPEND, 



(TIE L) forms a multiple APPEKD of the elements of L; L Is supposed 
to be of the form ( (Al A2 .,. An) (Bl B2 .,.),, . (Gl G2 ... Gk)) 
end the answer or value is {Al A2 . . . An BI B2 ... Gl G2 ... Gk) 

The fourth argument of CONVERT contains a single Tule, namely 
(— (=ITER= (JJJ) -SAME- JJJ> ) 



We know that (-ITER- J K L) will produce a list ©f the form (L L . . . L ) , 

where each element L. is forced by replacing the skeleton L ( which will 

probably use J inside it; the different values of L 4 are due to the fact 
that J ranges over the elements of K. 1 

In this case, (JJJ) ranges over the elements of =SAME=, that is, 
over tfc* *l*mcnt5 of the list we want to tie, and, for each value of (JJJ), 

<.:■<: replace the skeleton JJJ, ! n rh'a -,:ay the deaired effenc i,: ;.i<:'~ icved , 

print tie I i sj> 
M 15<u2 

TIE LISP (12/07 015^,2 

DEFtUECC 

(TIE [LAMB3A CD (CONVERT 

O 

CQUOTSC (XXX) (YYH )) 

L 

£ QUOTE ( CI C 

( == f = |TE* a (JJJ) ■SA.ME" JJJ) ) 

))) 

))) 

)) 

R .533+. 233 



r convrt 
J 15*. 6 
loa.i tCtfe)) 
NIL 

tie U Ca b) (e 4 e f) )) 

U 3 C D S F) 

tla <C Cab) (edef) (*h I j k) (I) On) () (nop) )> 
(A B C 3 £ F il HI J U M H P) 

tie'ct o o o o o n o (j n 

NIL 

: i - •: ; ( ( ) ) C £ > ) CO) (CO)) CO) U O ) ) )) 
(NIL NIL ft I L CIIL3 NIL (NIL?) 

stop 

a .333+7,353 



(MERGE A B) produces, from A • (Al A2 ... Am) 

«ttd B * (Bl B2 . . . B:n) a list (Al Bl A2 B2 ... Am 6a) 

The role sec CI comprises two rules r the first says: { {{) ()) () ) 
t:-.-it •:;, "hi' r.L'rging ut () with () produces :.) . 

The second rule simply identifies X and Y —the two Car's — , puts then 
X to the left of Y in the result, and begins with ((XXX) (YYY)), the two cdr's. 



pr i nt tnerse 1 i sp 
'4 203.9 

MERGE LISP 2/ J 7 0209,0 

DEFINE(( 

(MERGE CLAMSQA (A B) (CCUVEST 

O 

C QUOTE ( X Y (XXX) (YYY) ) ) 

(LIST A 3) 

(QUOTE* CI ( 

( (() ()) () ) 

( ((X XXX) (Y YYY)) CX Y (*3EG'J* C ( a«X> (YYY)))) > 

)}> 

))) 

)> 



r convrt 
if 203,5 
loai {(mcr%?)) 
MIL 

m«r*e< (a b c) (1 2 3> > 
(A U I C SI 

market (1 2 3 <i S 6) (a b e d e f ) ) 

(1 A H K U 5 E 5 F) 

marrje COO) 
NIL 

merge ( CI 2 (3) t) (a (b) (c) J) ))" 

(1 A 2 <3) (3) (0) it 1) 

stop 

R 1, 315*6, >i33 



UKMERGE takes a list of even length and separates Its odd and even elements 
into two separate lists. Defined in LISP takes the form: 

(UKMERGE (LAMBDA (L) (IF (NULL L) 

(LIST L L) 

((LAMBDA (X) (LIST (CONS (CAR L) (CAR X)) 

(CONS (CADR L) (CADR X)))) 
(UKMERGE (CDDR L))) )]) 

Again the four arguments of CONVERT are mostly trivial- However, one may see 
how the skeleton (-BEGN- (XXX)) corresponds to the 

((LAMBDA (X) ..,) (UNKERGE (CDDR L))) portion of the Lisp function, since 
we are dealing with a common subexpression which we «ish to coapute in 
advance. Since there is reasonable certainty of obtaining a list with 
two sublists, the solitary rule of Che skeleton =CONT- simply serves to 
give these sublists names and to identify them as fragments. The variables 
X and Y were defined In the outer pattern, which is why »CONT~ rather 
than "REPT= vas used In proceeding to the inner rule set, 

DEFIHEU 

(UNMERGE (LAM30A (X) CCOnVEJVT 
(> 

t QUOTE ( X Y CXXX) (UUU) (VW) )) 
X 

( QUOTE ( CI C 
( O (()()) ) 

( (X Y XXX) £=C0HT= (=1EGN* CXXX)) C2 ( 
( ((UUU J CYVV)) (£X UUU1 (Y V'/V)) ) 



>}) 
))> 
J) 



))) 



r convrt 

W 213,2 

loai CCunniar?)) 

N I L 

unmerse ( t-3 1 b 2 c 3 J ) 

((A SO (U 5)) 

untnergg (d a H 3 c U 5 o 5 f)) 

([UJ 1(5 S) (AUDEF)) 

unnierse ((>) 
Ci4IL NIL) 

unniqr^i* C(v f e i r n y a)) 

((Hro (f I HEJ] 

immerse ((L -i 2 (!.j) (i) fe] k J)> 
C(L 2 (3) -O (A (3} (C) 0)) 

stop , 

3 IJ]^7.9>5 



s 

The function (NONUM E) erases all nuabers from the top level of the liat 
E* 

Basically, the rule is: ( (XXX V YYY) (XXX (*R£PT* (YY¥))> ) 
That is, if we identify a number in the expression, ve copy the fragment to 

the left of this nuraber that is XXX— and repeat (that is;, repeat 

the erasure) with YYY. the fragment to the right of this number* 

The definition ov V as PAT -MUM- in the dictionary X was 
redundant; we could use instead the rule 

( (XXX =NUM- YYY) (XXX (*REPT* (YYY))) ) which does 
not use V, 

Kot<s that we use *REPT* instead of *COHT* because, when applying 
the sanic process to (YYY), we want to go back to our original dictionary, 
that is, vc want to unbind (XXX) and to restore it to Its original definition 
as UAR variable. *BEGK* could be used instead of *EEPT*, with identical 
effects. We use *REFT* instead of =REPT= since we want a fragment as 
value; that is to say, (*REPT= (YYY)) would produce a list without numbers 
in Its top level, but we want the contents of such a list, so we use *REPT*. 

(NONUM (L,Vt3QA CE) (CONVERT 

cauoTnc 

*V PAT -MUM* 
>> 

(QUOTEC (XXX) (YYY) )) 

(QUOTE ( CI ( 

t (XXX V YYY) (XXX (*3SP7* (YYY))) ) 

>)) 

))> 

)) 

r convrt 
W 2*3.0 
loaJ ((aonun)) 
Hit 

nonui.i ((a b c 1 J c f % 2 3 n )) 
(A !1 C £ F G <3) 

nomimCU 2 3 4 5 & 7 3) ) 
till 

nonum (( a b S & 1 (5) 1 a n) > 
CA 3 £ L <B) I A H> 

nonum (t (1) (2) ((J m 5) (3) 7 3 (3) )) 

C(L) (2) ((5 it) 5) <*> (3)) 



nonui.i 



({ (1) (2) CO '4) S) (6) 7 3 UO)>) )) 



((1) (2> ((3 4) 5) (3) ((<*))) 

stop 

R 1, .2 33*3, 050 



9 
nonum* erases all numbers from a" 3 1 vert list, in all levels, 

compare with nonum 



pr J nt nonum* 1 1 $p 
W 317*5 

NONUM* LtSP 02/0 7 . 0517.5 

0EF1NEU ' 

(no;ju;-i* (lamssa (e) (convert 

(QUQTcC 

V PAT "MUM" 
)> 

<QU0TH{ (XXX) X (YYY) )) 

E 

(QUOTE t CI C 

( (CXXX) YYY) ((-SEGH- (XXX)) ( *3£ G,i* (YYY))) ) 

( (=NUM- YYY) (=3EGN* (YYY)) ) 

( (X XXX) (X (*3EGN* (XXX))) ) 

))) 

>)> 

1) 

R .6Su+,303 



r convrt . 
M 313. 

toad ( (nonum*) ) 
NIL 

nonutf* ((3 b e 1 d e f 3 2 3 3) ) 
CA 3 C E) E F G G) 

nonu:n* ((123^5 5 7 3)) 
NIL 

nonum* ((a b 5 a 1 lo) tan)) 
(A 3 E L NIL -I A M) 

nonum* (< (1) (1) (1) {(3 i»> 5) (6) 7 3 C3) )) 
(NIL NIL NIL (NIL) NIL NIL) 

nonu::i* (<a (b (1 c) (2 . 3 33 J) ( ( C f - 2) 3) ) ) >1 
(A (3 (C) (!)) (((F (3) ft)))) 

stap 

R 2*616+7.316 

observe that the declaration v pat =num= 
was not used gnj coy] J b*; o.nltted. 



VOWELS LI 


S? 02/37 3123.3 


O001O 


OEFl;JE(( 


03020 


CV&JELS (LA.-1B3A CIO (CONVERT 


00030 


C QUOTE < 


oo ova 


V BUY ("03" A £ 1 U) 


00050 


£WVJ PAT (■OS« () {{=03 = 


oooso 


)) 


00070 


{) 


00030 


w 


00030 


(QUOTE ( CI ( 


ooioo 


{ CVVV) V) 


00110 


>>) 


00120 


)>) 


00150 


)) 


R ,516+. 266 




r convrt 




W 130.it 




load ({vov/e 


Is)) 


NIL 





') tfVV)> 



vov/sls ((p r e f I x)) 
<£ 1) 

vow<* 1$ ({synch r)) 
NIL 

vowels ( ( v o ? 

vowel s ((vowel s)> 
CO E) 

vowels?. 

voivsls {(a d r (i) ana)) 
(A A A) 

vowels ((ros(e)nblue(t)h>) 

(0 U E> 

Stop 

R 1*365*3,616 

(VOWELS ft) forms a list of the vowels present In th* list W, In the 
top level. 

The dictionary H defines V in th« BUV mode, and (WV) in the PAT mode, 
WV being a fragment. The pattern associated with (?W) is 

(=OR« {) {(-OR- v -=) WV)), and will, match with a list which is either empty 
or starts with {*} a vowel > or (b) anything else, and is followed by a 
fragment which matches WV. That is, (WV) teBts all the elements to see if 
they are either V (vowels) or == (anything else); elements which match with V 
ar* stored in a list, which later becomes the value of V- 

The argument R a fouTth of CONVERT, contains a single set of rules* 
with name CI, which contains the rule ( (VVV) v) ; that is, if the expression 
matches (WV) „ we return V as value. 



11 

Among CCNV-.R- pre grams which cs."--,-:;, :. ; .._ elements of a list, (STAfti.:!;?. lj 
will alternately place the elements of L at the front and and of a new list, 
while (GATHER L) will execute the inverse process. Thus, if I ■ (1 2 H S 6), 
(STAGGER L) - (13 5 6 4 2), and (GATHER L) - (1 6 2 5 3 4) . The key to 
STAGGER is the rule 

<(X Y XXX) (X (*REPT* (XXX)] Y)> 

in vhlch successive elements X and Y are moved to the extreme ends or the 
hew list, and the process continued by moving the re-iaining elements of L, 
similarly transformed, into the middle of the new list. Reversal of tht 
process depends en the rule 

((X XXX tf) (X Y (*REPI* (XXX)))) 

in which the extreme' elements are recognized, placed on the new list, followed 
by those elements resulting from a repetition of the process on the middle of the 
list. 

gather ((0 1 2 3 U 5 6 7 S 9}) 
(0 y 1 8 2 7 3 G k 5> 

stagger <(0123ii5G789)) 
(0 21*689753 1) 

gather ( (0 2 k & 8 9 7 5 3 1 ) ) 
(0 123^5678 9) 

(STAGf.ER (LAJtBDA (L) (CONVERT 
(QUOTE ( 

)) 
(QUOTE ( 

X Y (XXX) 

>> 
L 
(QUOTE (*0 C 

((X Y XXX) (X (*REPT* (XXX)> Y)> 

))) 

))) 



(GATHER (LAMfyM (L) (CGIJVEkT 

(QUOTE f 

)> 
(QUOTE ( 

X Y (XXX) 

>) 
L 
(QUUTlZ (*Q ( 

(Cx art (} (x y c*r*EPT« [ox)))) 



>>) 



12 

(SUBSETS S) produces all the subsets of the set S. 

CI Is a set of two rules, the first of which says that the only subset 
of an empty set is an empty set. 

The second rule identifies X with the CAR of S, and XXX with its COR; 
we then computa (=BEGN*= (XXX)), the subsets of (XXX), and we bind such result 
to the variable (AAA) ; we then replace the skeleton 
(AAA (*ITER* (J) (AAA) (X J))) 

This skeleton containts two parts or halves; the first is sinply AAA; that 
is, the subsets of the Car axe also subsets of the vholc listj the other 
part (*ITER* (J) (AAA) (X J)) adds X to each element of the subsets of 
the Cdt% 

DEFINEU 

(SUBSETS (LAMBDA (S> (CONVERT 
O 

(QUOTE ( 

X (XXX) 

)) 
s 

(QUOTE ( CI C 
( () (()) > 

( (X XXX) <-SKEL= (AAA) EXP& ( = SEGM= (XXX).) 

(AAA (*ITER* (J) (AAA) (X J))) >> 

>)) 
))) 

» 

r convrt 

W 6 U a . U 

load ((subset)) 
M I I 

subsets (()} 
(NIL) 

subsets ((D) 
(MIL U)) 

subsets ((12)) 
(NIL (2) (1) (1 2)) 

subsets ((1 2 3 t)) 
(NIL (4} (3) (3 i») <2> (2 k) (2 3) (2 3 k) (1) (1 h) (1 3) 
(1 3 b) (1 2) (1 2 k) (I 2 3) (1 2 3 i»>) 

subsets ((a bed e)) 
(MIL (E) (0) (0 E> <C) (C E) (C 0) (CD E) (G) (8 E) (B 0) 
<B D E) (6 C) (3 C EJ (BCD) (3 C D £) (A) (A E) (A D) (A 
D E) (AC) (ACE) (A C D) (A C D E) (A B ) (A 3 E) (A 8 0) 
(A 3 E) (A B C) (A B C E> (A B C D) CA B C D ED 

stop 

R 2.483+9.183 



13 



(PER>!LTATIONS S) gives a list of all possible permutations of the elements 
of S. 

The fourth argument of CONVERT contains now two sets of rules * 
nanely CI and C2. 

The first rule of CI is: < (X) {(X>) >; i£ the list S has only one 
element 3£, the answer is <(X]). 

(X XXX) is the pattern of the second rule, which identifies CAR and CDR; 
after this, (»SKEL* A EXPR X **+) defines A as the value of X —(the CAK) — in 
the EXPR mods, and proceeds to replace the skeleton 

(-ITER* J (-BECK- COttO) <*REPT* {J {)> C2>> 

In this skeleton, (=BEGN= (XXX)) computes recursively the permutations of 
(XXX) — thft CDR— , and, with J ranging over each one of the elements of 
this list of peraiutatimiflj =ITER"= proceeds to make a List of the results of 
replacing the skeleton <*MPT* (J <)) C2). 

This last skeleton applies to (J O) the set C2 of rules; in other 
words, for each element J of the permutations of (XXX) , we form the subexpression 
(J ()) and apply to it the transformation dictated by C2- Since we call 
to C2 with a *R£P1*> and not with a *C0HT*» we, when in C2 P forget all the 
bindings and start with our original dictionary^ except that the binding 
or value of A is not forgotten inside C2, since it was done with an =SKEL». 

C2 transform* an expression ( (Jl J2 J3 ,,, Jk) ()) into 

( (A Jl J2 ... jk) (Jl A J2 ,..) (Jl J2 A „* Jk) ... (Jl J2 ... Jk A) ) 

a*nd *REPT* takes its contents; as we saw before* =ITER= makes & Use of 
elements of that form for each value of J. 



see definition and examples in next page 
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PERMUT LtSP 05/2ii 0651.3 



DEF I NE< C 

(PERMUTATIONS C LAMBDA (S) (CONVERT 

£3 

( QUOTE ( X (XXX) (YYY) >) 

S 

(QUOTE ( CI £ 

( (X) UJO) ) 

( (X XXX) C-SKEL" A EXPK X (=1TER= J C=BEGN= (XXX)) £*REPT* £J £>) C2) 

))> 
) C2 { 

( (U (YYY)) £<YYY A)) ) 

( UK XXX) £YYV)) £(YYY A X XXX) C»fcEPT* CQXX) (YYY X)> )> ) 
))) 
))) 
)) 



♦ 



r convrt 
W 652.4 

load £(permut)) 
NIL 

permutations (£1)) 
(CD) 

permutations < £1 2)) 
(£1 2) (2 1)) 

permutations ( (1 2 3 )) 
(£1 2 3) (2 1 3) (2 "3 1) (1 5 2) (3 1 2) £3 2 1>) 

permutations ((a b c d)) 
(<A BCD) £B A C Q) (B C A D) (B C D A) (A C B D) (C A & D) 
(C B A D) CC 3 D A) (A C D B) £C A D B) (C & A 6) (C D B A) 
(A B D C) (B A DC) (BDAC) (BDCA) (A Q B C) (D A 8 C) 
(D B A C> (DSC A) (A D C B) CD A C B> (D CAB) (D C B A>) 

permutations (£)) 
Ml L 



stop 

R 3. 2O0+9.116 
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(*MARK X L) is intended Co Identify all the occurrences of the atom 
(or expression) X in the list L. This is done by leaving X as it is, but 
writir.g the atom * in place of any other subexpression. Thus, a sublist 
which contains no X's is replaced by a *, as are different atoms. However, 
the structure of a subexpression which is not X-free is detailled to the extent 
that all other subexpressions of the same level are indicated. 

The decision as to whether an expression is X-free is made by the 
pattern XX, defined by <=0R* £■— X ===) (— XX — )> which matches any 
list which either directly contains an X, or contains a sublist with a " 
similar property. 

DEFINE (I 

(*iiARK (LAMBDA (XL) (CONVERT 

(CUNS (QUOTE X) (CONS (QUOTE VAR) (CONG X 

(QUOTE ( 

XX PAT t*Qtt* («== X ===) (»»- XX = = = )} 

))))) 
(QUOTE < 

)) 

<QUOTE (*0 C 
(X X) 

(XX (=ITER« J =SAME= ("KEPT* J))) 
<« *) 
))) 
))) 



)) 

r convrt 

W 027.0 

load ((park)) 

NIL 
♦jimrk <x (1 2 3 (12 3 (1 2 x (3 4) y x) x (((x> *) *) i) y »jj 

( * * * (* * * (**x* * X) X (((X) • ) •) * ) * * ) 

*mark (x ((((::i (m (iu x) n) m) (x x) r.i) m))) 
((((* {* ( * X J * 3 * ) {X X) * } * J } 

*ntark (0 (1 (2 3 k x) 5 6 7 x) 8 9 0) 
*** EKRQki A1LSA2 

t(X . 0) U 1 (2 3 t» X) 5 6 7 X)) 
*r.iarfc (x ( J, 2 3 h (L ? 3 CI 2 5 x 5 C 7) c c c)c x x) ) 

(****(***(* **X"**)* + *)*XX) 

StOJJ 

R 3 4 233+£,7t6 
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(FORXUL L) Is a LISP "function defined through CONVERT which will 
transform en algebraic formula written in infix notation to the binary 
prefix form. The argument L a which is the formula to be transformed , may 
use any variables, connected by the Symbols PL (plus)* HI (minus), TI 
(times) j DI (divide), or PO (power), whose binding strength increases in 
the order mentioned. Thus the usual conventions for avoiding parentheses 
in associative or distributive configurations apply. 

The CONVERT function implementing FORMITL is 

(FOftMUL (UiliiDA <L> (CONVERT 

(QUOTE { 

LL SKEL (*REPT= t»WHEK= (ILL) (L) L>) 

RR 3KEL (=REPT* C-IIHEN- (RRR) C R) R)J 

)) 
(QUOTE ( 

L R (LLL} (RRR) 

L 

(QUOTE (*0 ( 

((LLL PL RRR) (PLU LL RR)) 

(<LLL HI RRR) (MIM LL RR) ) 

((LLL TI RRR) (Tl.'l LL RR) > 

(ULl Dl RRA) (DIV LL RR) ) 

({LLL PO RRRJ (PuW LL RR>) 

>)) 

))) 



The binding strength hierarchy is determined by the order in which 
the rules are written; thus no attempt will be made to locate a product 
will bfc nade in any expression which contains a Sua, and so on. Since 
CONVERT always makes leftmost catching fragments as small as possible* 
association is always made to th&rlght; (A PL B PL C) would be transformed 
to (PLU A (PLU BC)). Any expression not connected by one of the five 
admissable algebraic connectors is left unchanged. The choice of the 
names of the connectors is occasioned by LISP 1.5 's aversion for the pure 
algebraic signs. 

The skeletons LL and RR serve to analyse the arguments of the 
algebraic connectives further as formulas, so that formulas may be forced 
recursively with formulas as subexpressions- Moreover, when the fragments 
LLL or RRR contain only one expression, it is necessary to avoid endowing 
them with a spurious p&ir of parentheses, vhcrcfore the configuration 
{-WHEN- (LLL) (L) L) . 



J7 
r convrc 

W 2337.0 

load ((formul)} 

NIL 



formul (<x pi y pi z pi 7 ti x po 2)) 
(PLU X (PLU Y (PLU Z CTlri 7 <P0i/ X 2))))) 



fornul ((* ti (y pi z pi 28) po 2)) 
(TIM X CPOW (PLU Y CPLU Z 28)) 2)) 

forntul U(x pi 2) ti (z pi y po 3) Mpl 3 tl t)) 
(PLU CTIH CPLU X 2) (PLU Z CPOM Y 3)5) (TIM 3 T)) 

fornul (C(x pi 2) U (x pi z po 3) pi 3 ti t)) 
(PLU (TIM (PLU X 2) (PLU X ( POif Z 3))) (TIM 3 T>) 
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CONVERT is veil adapted to making transformations arising from the 
word problen- Given strings of characters from some alphabet, one may 
specify the equivalence of certain strings •• Once done, ic is reasonable 
to ask whether therfe is thereby implied the equivalence of a given pair of 
strings- In order to determine the existence of such an implied equivalence 
one alght systematically seek out the various strings which are known to have 
equivalents, replacing thea by their equivalent in order to transform one 
member of the pair into the other + In particular, on* might attempt to 
reduce an arbitrarily given string to a canonical form, wivereas ch* 
determination of such equivalences is a generally insoluble problem, many 
classes of equivalences do in fact lead to determinate problems, and 
one may still be interested in seeing the effect of a given transformation 
strategy in the general case. 

The two prograas included here as examples will attempt the reduction 
of a word to canonical form; the strategy is to arrange the letters in 
lexicographic order by rules which describe an alternative for- to two 
letters written in tha wrong order; they also attempt to control the 
number of consecutive repetitions of the same letter, since one of the rules 
states that some such sequences are equivalent to the null string. Of course, 
these rules belong to an especially simple word problem* 

3 2 

(WG2D V) makes such a reduction for the group defined by A ■ I, B =1, 

BA = A B s where powers are indicated by repeated atoms, the identity by the 
null string. ie, A A A is deleted from any string > as is B B, and B A is 
replaced by A A B. 

(WORD* W> transforms strings according to the rules that A B A B = C, 
C'CC, A A A A f and B B are deleted „ C A * A B C C, CB-ACC, and 

B A A = A B. 

In each case* the exact? lea shown are derived by the inclusion of the 
rule (=FRI« -SAME-) &S the first rule of the respective rule set. Wr thereby 
are able to see the step by step transformation of the Input string to its 
final form. 



(WORD (LAMBDA (W) (CONVERT 
(QUOTE ( 

)> 
fQUOTE { 

(ILL) (RRR) 

n 

W 

(QUOTE (*0 ( 

<=PRI « =SAME») 

((LLL AAA RRa> t=*EPT= (ILL RRR))) 
((ILL B B RRR) <«RE?T= (LLL RRfc)) ) 
{(LLL B A RRRJ (*KE?T= (LLL A A 3 RRR)}) 
>>) 
>>) 



CR3.-:) 



(WORD* {LAMBDA 
(QUOTE ( 

>) 
(QUOTE ( 

(LLL) 

n 
u 

(QUOTE C*0 
(=PRI* «SA 

((LLL 

{(LLL 

{(LLL 

((LLL 

((LLL 

((LLL 

((LLL 

>)) 

))) 



(W) (CONVERT 



( 
IE=) 

A E 



C 
A 
a 
C 

c 



A S RRR) { = RFPT- ULL-C RRR))) 

C RRR) C»ftEPT- (LLL RRR))> 

A A RRR) (-REPT- {LLL RRR)) J 

RRR) {=R£pT= {LLL RRR))) 

RRR) (*kEPT* (LLL A B C C RRR))) 

RRR) ("REPT= (LLL A C C RRR))) 

A RRR) {-REPT= (LLL A 3 RRR))) 
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baabbbabaa 
BBBABAABB) 
3 A 3 A A B B) 
B A B A A) 
A B A B A A) 

a a A) 

A ) 
A A) 



b b)> 



word ((bbb baa a a a a a ) ) 
_CB B B B A A A A A A A) 

A A) 



TB B 3 B 
(3 B B B 
(B B A) 
(A) 

(A) 



A A 

A) 



word ((bbbbl 
(3 3 8 3 8 A A 
CB B 8 3 3 A A 
(3 3 8 3 3 A) 
(MSA) 
CB A) 
CA A B) 
(A A 3) 



■ a a a a a 
A A A A A) 
A A) 



e a >) 



clock 
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CO) word ((baabaabaabaabaa baa)) clock (t) 



(A A 
(A A 



A 
2- 
A 
(3 A A 

3 

A 

<a 3 a 

(A A A 

(BAA 
CA A B 
CA A A 

B 3 

A 



CA 
CA 
ii I L 
NIL 
IS 



B A 
A 3 



A 



A 
A 
B 

3 
A 
A 
A 
) 



A 
A 
3 

n 

A 

A 

A 
Li 3 
A B 
A A 
A A) 
3 A A) 
3 8 A A) 
A) 



3 
A 
A 
A 

3 
3 
■■. 
A 
A 
3 



A A 
J A 
A B 
ABA 
A A B 



3 
A 



A A B A A B A A) 
3AABAABAA) 
A B A A & A A 8 A A) 
A 8 A A B A A) 
A A B A A) 



A A B A A) 
3 A A B A A) 

A A 3 A A) 
A A) 



:\ 3 

A 3 
A A) 



22 

Sometimes it is more convenient tg use CONVERT Co construct a 
Special purpose program to handle a given problem than to cry to program 
the problem itself in its full general ity. An example of sucti a situation 
la the program (PERGEN S) designed to list all the permutations of the set 

S. The underlying idea is quite simple to permute the elements o£ S ve 

-£ip its Lir\-t: ;-!:■"..■- ,t into an/ .^-.r, \~r li.idir ; : : ! r : ; ! -. ',: , C ' r>::i ,...., . ;._. 
second element into one of those remaining, then the third element into 
soqc unused iaage, and so on. There are continually fewer alternatives 
available until finally the image of the last element Is determined fully. 

Assuming that the elements of S are atomic, ve nay use them as 
skeletons, to be replaced by their Images under the permutation. In order 
to assign their images, as well as to vary them in a systematic Banner, 
we use the control skeleton -ITER-; but constructed in advance so as to use 
the elements of S as its indices, and to cause them to vary through 
suitably restricted subsets, as the choice of the value of one index restricts 
the range available to its successors. 

In the examples £hofcm F the generated skeleton is printed before it is 
executed, which allows one to see how the procedure described above has been 
implemented- Since a generative stage is involved p various skeleton names 
such as *ITER* roust be quoted * so that they will not be replaced at the time 
the skeleton containing them is constructed; this is done by introducing 
synonyms* for them in the EXPR mode, :IT: # for example. 

tf we examine the example PERGEN ((A B C>), we see that the intermediate 
skeleton which is generated is 

!^hIt R *,? i"S?? P : frWT- W B C>> MIL) C*ITER* S <«C0UP= 

d? wYSm?" 0) (MTER * c ( * C0MP " CBaL ' 01 ' (A * C}} <* 

The outer iteration allows the variable A to range through the values A f E t or 
C. The second iteration allows the variable B to range through th* set 
C-COMP- («QUOT= {A B O) (A)). We must recall that A is now a variable, so 
that on the three different occasions that we will execute the second *ITER fl ? 
A will have three different values, and hence the complement, calculated 
during the execution time, will be successively (B C) , {A C) , and (A E) - 
In examining the result , 

<(A B C) (A C 15 > (II A C) (JCA)'(C* E) (C 3 A)) 



we see that A varies most slowly, taking values A, B, C; then B varies through 
a, C; then A, C; finally A, B p while C varies nrast rapidly, which is unnoticed 
since its value is forced. 



r convrt 
W 7«»6,3 

load ((pergen)) 
Nit 

pergen ((a t> c)) 



r */.!?*.? (=Cor1P * <=QUOT« (ABC>) NIL) t*ITER. B C=COflP 

JlP/IVS.fi? V CA)) C#,TEft * C C = C0MP - WUOT- (A B O) 
dJJ IA B C))J)J , 

((A BD) (AC B) (B A C) (B C A) (C A 8) (C B A)> 



CA 



pergen ((a b c d)) 

f£r'.H R *i.i i"S°'r}?t <=QU0T= (A B C D)) MIL) (*ITER- B (-C0MP- 

5r Q S?!'r ( ?rSn C S J CA>) f " TEft * C (=CGr -' P= t=aU0T= (A G C D) J 

D))>) ) l-WMP- (=QU0T- (A B C D)) CA B C)) (A B C 

J^A *?*/* B D c > < A C B D) (A C 8] (ADBC) (A D C B) 
! { J ? (B A D C) C8 C A I)} <B C D A) (S A C) CB D C A) 

S ? n °? C A D B) (C - B A OJ (C B A) CC D A 3) {C B A) 
(D ABC) (D A C B) (D B A C) (D B C A) (D C A B) (0 C S A)) 



stop 

A tj. 966 + 5.733 



pr Tnt pergen 1 i sp 
W 7^8.6 



PERGEN 



LISP 



03/2<i 0?it8.7 



DEFI 


■■,L({ 




(PERGEN (LAI'BDA (S) 


(CONVERT 


(QUOTE { 






TT 


PAV 


(T TTT) 


III: 


EXPR 


*ITER* 


;C0: 


EXl'R 


=C0MP= 


:Q0: 


Lap,; 


»Q'J0T= 



)) 

(QUOTE ( 

T (TTT) 
>) 

(QUOTE (*1 ( 

C== (-SKEL* S EXPR -SAKE* C-SKE1,- Q SKEL (=PRNT- ((=KEPT* S *2 ( 
(TT (:IT: T (:C0: (tQli; S) <-C011P« S TT)) («F;EPT = (TTT)))) 
(TT {||Tl T fsCOi (1UU: S) (:QU; f-COMP- S TT))) C-REPT- (TTT))}) 

))>> Q)>) 

))) 

)) 

R .816+ ,533 

• ■ 
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The Poisson Bracket, [f t g] of two functions, fCp,, q.) and 
g(p^i <l-) i* defined by the formula 



ftfl- A ay Jf; - 9fi : ^j 



However , it is possible, to give an axiomatic treatment to the Poiason Bracket 
by noticing chat it is an alternating bilinear functional which ia alio a 
derivative. That is to *ay» it obeys the rules 

1- If, gl - - [g. f] 

2. [af + bg, h] - *[f, h] + b[g, b] 

3. [fg, h] - fig, h] + [f, h]g 
as well as the normal izat ion conditions 



[q., p, } - 1 if i * j; otherwise 



It is therefore passible to program the calculation of the Polsson Bracket of 
polynomials in the coordinates q, and momenta p. as a synbol manipulation 
program effecting the transformations implied by the axioms * Unfortunately 
the axioms in their simplest form introduce a great number of spurious factors 
and sumnands vhich are either (1 or l t or equivalent to thea after some 
adjustment. It is therefore desirable to incorporate on algebraic simplification 
program with the Poisson Bracket calculation at least powerful enough to 
counteract the trivial factors and sumnanda introduced by the differentiation 
process . 

This simplification occupupies the greater part of the volume of th* 

pron.r-:.-- :"or cxnnr-le, sums arc simplified by rc-.cvin: ■■■'■r: : " :-i :, !;un;iin>; 

numerical suncands, bringing numerical sununands to the leftmost position , 
bringing negative signs to the outermost level, applying the associativa law 
to write nultiple sums without parentheses, and Crying to Improve numerical 
factors vhereever possible, differences and negatives are principally 
simplified by eliminating zero arguments and computing numerical negatives 
whereever possible, Product simplification is very similar to sum simplif ication; 
a product containing a numerical zero factor is at once sat equal to zero, 
factors of one are excluded > numerical factors are raultipliedj preference is 
given to the power representation, and so on- The trivial cases of exponents 
are reduced. 

Input to the program (PB X Y) is in the form of polynomials written 
in infix notation with ths algebraic connectors PL (plus), MI (minus), TI 
(times) , and PO (power) . Conjugate variabla-etoraeuta pairs consist of an a£om, as 
X to represent the coordinate, and the sataa atoa inclosed in parentheses, as 
(X), to represent the conjugate moaientuia* Intermediate calculations are done 
in prefix functional form, but the output is again presented in infix notation- 
Little sinpl if ication not occasioned by the derivation process is laade. thus 
a negative pair of terms which are separated, or vhich differ in the internal 
arrangement of their subexpressions will not be replied by 2*ro, fa* GMscple. 
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A rat, upon being intro-ducad to a new maze, is immediately inter e^tsd 
in learning all th* paths leading betwfttn various pairs of paints. The 
interest of a mathematician is more modest and yet more systematic, since once 
a program is given for finding all the paths between one pair of paints, that 
pair being arbitrary, there exist known methods for solving the general 
easel To find all paths between a pair of points F we may suppose that the 
points are in fact identical 9 and that moreover r we are not interested in 
loops which lead frora a point to itself. Such not being the case, it would 
be possible that we have a pair of points which are directly linked, through 
a primitive path. Neither being the case, we might consider Che image set of 
our initial point, by vhich we mean the set of all points linked to the initial 
point by a non-null, primitive path, and the counter Image set of the final point > 
aeaning the set of points linked to the final point by a single primitive path. 
If ue form the cartesian product of th* image set and the count eriraage set 5 
and suppose known all paths linking those pairs of points — — a point in the 
iaage set one step away froa the initial point to a point in the count erisriage 
set, likewise on-e step avay from the final point -— we then have a recursive 
solution to the original problem. 

For mathematical --- or computer ™ consideration we must have a 
representation of the maze which is to be studied, and this is conveniently 
given by a list of the primitive links* the pair of points (X Y) belonging to 
the link list L if a path joins X to Y. We may suppose this is a -directed 
path, and insist that (V X) also appear in the list if the path is bidirectional* 

A pair of points is then connected if there exist links (A XI) (XI X2) 
... (Xi Xi-KL) ... (Xn B) all belonging to the list I., A and B being the initial 
and final point respectively. Such a link may exist in one direction but not 

thu tfthor. 

An effective way to avoid loops in eaumerat ing the paths is to remove 
the initial and final points from consideration in the Inductive step, since 
any path arriving eventually at the initial point must form a loop, as veil as 
a path to the final point initiating from the final point* 

In the program (PATHS A B H), A is the initial point, E is the final point, 
and H is the link list. A and B are variables uitMn the program enjoying a 
similar significance. (LLL) and (R&R) are fragments retaining the left and 
right halves of a list which we analyze. The bucket variables are respectively 
A* which collects the elements of the isage setj R* which collects the 
elements of the counterimage sec, and X which collect* link* not originating or 
terminating from A or B- The fragment pattern (UU) 

({*0R* ((A A*) UU) ((-- A) UU) ((B* &) ITU) (<B — ) t'U) (X OB) {))) 

is used to see the link list decomposed by the bucket variables; X will become 
the new link list in the recursive siibproblen. 

The key rule is 

({A B (UU)) (-ITER* 1 A* J B* (K) (-REFT- (I J «) (A K B}}> 

vViicr. sec? che Initial and final point together with the lirtk list decompose^ 
into the image set, counterimagB set, and link, list from which the initial 
and final points have be<en eliminated. For each pair of elements from A* an<3 S*, 
the process is repeated* and to the path list — a list of points forming the 
joining path is appended the outer points A and B. 



This rule defines the the repetitive condition of the CONVERT program; 
the terminal conditions arts* t^hcn wc encounter a pair of point's which turn out 
to be in fact th* sarae, or a pair which fire directly linked. In the latt*r 
case we search for any additional Indirect links, 

Should ve eventually exhaust the link list without the ends Jointtv, 
we produce a null £ragrs*nt which, by producing a vacuous index set for -ITER-, 
causes the tentatively forced chain to be discarded. 




Fig- 'TRIAL'. 
One of the problems solved by thii function (PATHS A B II) 
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( PATHS (LAM3DA (A 3 
(QUOTE < 

{{•OA* CCA 



II J (CONVERT 



PAT 
3UV 
BUV 
SUV 



(UU) 

A* 
B* 
X 

n 

(QUOTE ( A B 

(LIST A 8 It) 

(QUOTE ( *Q ( 

( (A A = = ) {(A)) ) 

B (LLL (A 3) RRR)) HA 
3 (UU)) ("ITER= [ A* J 
O ) 



A*)UU) ({= = A)UU) ((B* B)UU) ( (3 =«)UU) (X UU) ())) 






(LLL) (RRR) J) 



( (A 
( (A 
t - = 

))> 
))) 



B) (±REPT* (A 3 (LLL RRR)) 
B* (K) (*REPT= (] J X)) (A 



)> 



3) 



) ) 



CSET (TRIAL ((0 I) (0 2) (0 3 ) (q (, j (1 0> (2 " 0] 
'(3 0) (J» 0) (l 2) a u > C2 3) Ik 3) 



)) 



Fig, 'IRIAL', 

Not all the lints are 
bidirectional. 




r convrt 
U 753.3 
load ((paths) ) 
NIL 



clock (()) e (paths 1 3 trial) clock (t) 


((1 3) (1 2 3) (1 b 3) (1 2 3) (1 Z 5) (1 2 U 3) 

(H 3) (1 U 2 3) (1 !( 3)) 



clock ((>) e (paths 3 1 trial) 

((3 1)) 

12 



clock (t) 



clock CO) e (poths 2 ti trisl) clock (t) 


f(2 ■»} <2 3 U) (2 3 JO (2301 it)) 
IS 



CSET (MESH ((A C> (C B) (S C) (0 E) (0 H> CO F) 
• <E F) (E G) CE H) (F H) <F G) (F D) 
(G D) (G H) (G £> (H D) (H E) (H G) (H F) 



I O )> 



Fig. 'JfESH 1 , 




S> 



clock CO) e (paths (quote a) (quote b) mesh) clock (t) 

((A C 8)) 

18 



clock CO) e (patlis (quote b) (quote a) mesh) clock Ct) 
MIL 

clock <{)) e (paths (quote c) (quote h) mesh) clock (t) 

MIL 

38 

clock CO) e (paths (quote !) (quote g) me 5 h) clock (t) 

NIL 
16 

clock CO) c (paths <quotr> d) (quote f) mesh) clock Ct) 

SuVn> D E F> iD E H F) {D E G H F) <° H £ F > CD H G E F> 
33 



clock CO) e (paths (quote f) (quote d) mesh) clock tt) 

C(F D) CF H G D> (F H E G 0) <F H D> (F G D> (F G H D> (F G 

En ) ) 
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clock (O) e (paths (quote h) (quote f) mesh) 
CCH F> (H n CH E F) (H E G D F> (H J F) (H G F) (H G 
dock COJ e (p, C hs ( quo te h) (quote £ > m «h> clock ft) ^ 

• f'SV^ChVg?! ^ ° F -V <H ° L! G i (H ?_« ™ I F flj (H 
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CSEF (NET CCA E) CA F> (E A) (E K> <E C) CE F> (k 

en ^ to ,i a fi i K n (c E > <c ,n (c 0) D c S 

E JJ 5J K J P D) tP LJ < L P > fJ - B) U M) CM L) M 
£H C) (Y ri) (Y EJ ( f A) (F E) (F K) {F D S L B 



I G D E F)J 



E) 
P) 
Y) 



A (start > 



•( £ ?■ c .=■— * 



Fig- "N E T", 




excise ( 

ctock (< 
HIL 

((A E 

F D C 
B) <A 
E F 
F D C 



t) 
>) 



e (paths (quote a) (quote b) net} clock ft) 
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B) (A E 
L B) (A 

Y B) {A 

Y B> (A 
B) CA E 
B) CA 

k 
L 



SOL 



B) (A F E 

K E C D P 
L 3 3 (A F 
3) (A F £ 
U) (A F E C 
L fi if 3) CA F 
BJ (A F D C E 
H Y B)J 



P D 
D P 



7 
- 1 






MLB 
B) (A 
C M 
H Y B 

3) CA 



) (A F K 

ECHl 
I B) (A 



C M 
ft Y 
B) 

E C 
L S) 

y a) 

3) CA 
Y 8) 
B) (A 



J CA E K 

E C D P 

3> <A E 

) £A F E 

: : I" C 



: 
(A 

I ', 
F 

(A 
F 



M 
B) (A 



F 

;- 

r. 

F 

[ 



D C 

E K 

E C 

K P 

P K 






33 



pr l nt naths 1 i sr> 
-W 21S-8 

PATHS LISP 04/02 0216,8 



DEFINE (( 
(PATMS (LA'-HIA (A «J M) (CfVIVERT 

(QUOTE f ..... 

fUlJ) PAT <{*T»* CCA A*)UU) ((== A)UU) ({B + "J)UU> ((3 »>UU) (X 1JIJ) ())) 

A* SUV « 

8+ <JUV « 

X ")IJV ■■ 
)) 

(QUOTE ( A 3 CLLL) (RRR) )> - , ._ . . 

(LIST A FJ :-1) 

(QUITE ( *0 ( 

( (A A »-] ((A)) .) - - - 

( (A S (LLL (A 3) WU ((A 3> (*!*EPT* (A «S (LLL HI 1 *)))) ) 
C (A R CUU)) ("ITER- I A* J U* (K) (=1SPT= ( 1 J X) ) ( \ K 8J) ) ) 
( ■■ (> ) 
))) 
))) 
)> 



CSET (TRIAL ( C 1 1 ) ( 2 ) (0 J) ( h) ( 1 > f 2 0) 

H 0) (k 0) (; 2) ft 4) (? ?> (ii 3))) 

CSF.T (NET ((A FJ CA F> (F A) (E K) CJ= C) <E F) CK E) 

CK P) CK F) {1 E) CC M) fC D) (D IJ) (0 P) 
(0 F) (P K) (P -I) (P L> (L P) (L "J) (I M) <M L) ( *l V) 
(H C) (Y m (Y -I) (F A) CF E) <F Kl (F D) (T L) (5 Y>>) 

CSF.T (T-.SH ((A 0) (C 3) n 0) (D E) CD 1) ( r ) F) 
(E F> (F G> (S H> (F "|> (F D CF T) 

(n r>> (-i h) (n ei (h o) <h fj (h 6) (u f> 
I (J )> 

R 1,150*. 555 
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Polynomial manipulation is complicated by the fact that a given 
polynomial can be written In a wide variety of equivalent foras; and it 
is therefore convenient to reduce a polynomial to some convenient standard 
form before using it in further calculations. (POLY) is a function, defined 
In CONVERT* for making such a reduction, and some further siraple manipulations. 
It is a function of no variables because it reads in instructions, and data, 
frorai the teletype console, 

We first define a polynomial; this is done in tenaB of =P- which 
recognizes polynomials, and *P*, vhich recognizes polynomial fragments* 
A polynomial is defined recursively as one of the following 

the variable, x 

two fragments connected by a plus sign 

tvo fragments connected by a minus sign, such that 

the right fragment itself contains no minus signs 
mirtuS a polynomial 

two fragments connected by a product sign 
a polynomial to a positive power 

In its turn 'a polynomial fragment is either 

a polynomial 

a sum of two fragments 

* difference of two fragments, the second containing no 

minus 
a product of two fragments 

Allowing polynomial fragments permits one to make use of the 
associative properties of addition and multiplication by writing multiple 
sums or products without explicit parentheses to specify the association. 
The rules above cause a right association in testing a polynomial s except 
for minufc. Although not ordinarily an associative operation, convention 
holds that (a - b - c - d) should be (((a - b) - c) - d) , or a - (bf cf d). 
In splitting a polynomial into two fragments separated by a minus sign, it 
is thus necessary to see that the right fragment does not contain a minus. 
In such a context a monary minus will always cause confusion if it is not 
parenthesized when it conflicts with a product j ie we do not allow x * - y. 

Al ! li'.v.-gh t In.- -CR- defining a polynomial nse ;>:'_•■ le=- the so-called 
"Backus Normal Form" it must be remembered that the alternatives of the 
=031= are sought in order, so that a polynomial is decomposed as a product 
only if it cannot be decomposed as a sum or as a difference. The order 
in which the algebraic connectors are written therefore determines their 
bin^ i ":>; / r iv -_;r :i . •-:•!■! on i Vi ■; .y ?•"■ count parentheses ::.ay \ c cr/iittei when they 
would enclose terms joined by the stronger connective. 

Similar In operation is the function NOR which reduces a polynomial 

to its internal representation, which is a list of its coefficients when 

written in the form 

2 3 n 

p(x) = a n + a.x + a.x ■*- a.x + . , , + a x , 

u i ± j n 

Its representation would then be 

<a a a a 2 ^ ... % ) . 



The operations which one makes for polynomials may be aade for the 
internal representation, we have 

PLLF sums tuto polynomials by summing corresponding coefficients; 
if they are of different degrees the high order 
coefficients are appended to the sum of the common 
coefficients, 

KIN as a aonary operation! multiplies each coefficient by -l f and 
as a binary operation* works analogously to FLU. 

TIH multiplies two polyncnaials by the rule (a. + a.x p"{x))q(x) « 
a q(x) + fljX p 1 (x>q(x), where p'{xjq{x;ris computed 
recursively, Multiplication by & constant is effected 
by multiplying, each coefficient of q by that constant, 

and multiplication by x is effected by shifting 

adjoining a ttiv to the front of the coefficient list. 

POW is realized by repeated multiplication* and no effort at 

optimization is made by making a binary decomposition of the 
power. 

The terminal cases are the variable, vhich is replaced by (0 l) v and 
a constant, which is replaced by (a). Reduction to the form of the internal 
representation is then effected by recognising the possible combinations which 
fulfil the definition of a polynomial, and performing the indicated arithmetic 
with respect to the representation-list. 

The functions PRD and PWTt serve to convert the internal representation 
into a regular polynomial form, PWR writes the standard suat-ot -powers 
according to which polynomials ere generally written, and contains provision 
to write a in place of a** » and b*x in place of b*x , as well as writing 
x in place of l*x * which is standard practice. The function PRD transform* 
the list (a Q a^ «♦< a ) to the product form 

p(x) *= (a + x«(a 1 + x*{a 2 + ... x*^^ -I- x*a & ) ...))) 

which is preferable for evaluation of a polynomial because it minimizes the 
amount of multiplication* A sinilar decomposition is used by the function 
VAL, which evaluates the polynomial at a designated point. 

Finally, the execution of Che function {POLY) is controlled by a 
program containing a read loop. The adnissable instructions are very simple p 
and could be considerably extended to perforn a variety of polynomial 
operations . 

E. a evaluates the polynomial in the workspace at the point a 

I p places the polynomial p, input frora the console* in the 
workspace ,. p may actually be any quantity. 

ST form the internal representation of the polynomial in the 
workspace r which replaces tha workspace. • 

print the worlcspac*. 

S tv r/.il.-.^to t:'..-: -.,\ ... t;::i. 

X ft *2t0cutc the expression e> input from the console, which Ray be 
any convert skeleton admissible to (POLY) * 

T . output the workspace in tha polynomial suo-of -powers for.?.; 
actually, the workspace assumed to be in internal 
representation, is transformed to this form and placed 
in the workspace » and must b output with 0< 
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Z transform the workspace Co Che economized fona, assuming that 
the workspace contains the internal list form* 

TS place the workspace In temporary storage. 

(TS) place teaporary storage in the workspace. 

Any command given, if it is not atomic and in the form of a list 
will be treated aa a series of commands to be executed, and the same 
interpretation will be applied to the list elements in torn* Thus p 
(i ft o) p will reed p, change it to internal form, and write this form. 

This progran. performs only the rudiments of polynomial manipulation; 
one could think of extending it to the generation of interpolation 
polynomials * numerical integration and differentiation formula* p and 
diverse other applications. 



> 'eonvrt 

W 155 *° /Vat Gl 

locH ((poly)) <*** m r* 

poly C) start f'ty* 

i ((x mi 1) po 7) W* 

— — 

<{x rti i) po 7) 



f 



ft 

= = 



writ* ■* Out' ? 

(-1 7 -21 35 -15 21 -7 1, — »«** /** £ ££__ 

(-1 PL 7 Tl X PL -21 Tl X PO 2 PL 35 T! X PO 5 PL -35 T I X 
PO it PL 21 Tl X PO S PL -7 Tl X PO 6 PL X PO 7) 
t " fcri rt £ the Tw-iiWy p**i**fw»% s&m^ & £k ^tsfAce 

C-l PL X Tl (7 PL X Tl (-21 PL X Tl (55 PL X Tl (-35 PL X Tl 
C21 PL X T! (-7 PL X Tl I))))))] 
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J ((x pi 1) po 5 pt (x mi 1) po 5) 

o 
(£X PL I) PO 5 PL (X HI 1) PO 5} 

n 



(#+*/ + (x-O' 



(-0 10 -Q 20 -0 2) 



■z. J *" 



({ts) y o ts i o) *his '- * c^'l of texfwtatids 

.(10 Tl X PL 20 Tl X P0 5 PL 2 Tl X PO 5) 

(-0 PL X Tl (10 PL X Tl (-0 PL X Tl (20 PL X Tf (-0 PL X Tl 
2)))}) 

i* convrt 

W 143.2 

loart ((poly)) 

MIL 

po 1 y ( ) 

f ((Ipl x pi x po 2) po 5) 

n 



(13 6 7 6 3 1) 

(ts) 

( y t> ts z o ts e o) 
(1 PL 3 Tl X PL 6 T| X PO 2 PL 7 Tl X PO 3 PL 6 Tl X PO k PL 
3 Tl X PO 5 PL X PO G) 

(1 PI. X Tl (3 PL X Tl (6 PL X Tl (7 PL X Tl (6 PL X Tl (3 PL 
X Tf 1))>)11 

185193 *-v*Le. tit ;£•=? 

I (ni (x pi 5 tl x tl 8 tr x po 2 ill 9)) 

_ .. 

(o no (tsl v o ts z o) 
("I CX PL 5 T| Ul S Tl K PO 7, Ml 3)) 
£9 -1 -hO) 

(9 PL -1 Tl X PL -kU Tl X PO 3) 
(9 PL X Tf (-1 PL X Tl (0 PL X Tl -t0>)) 

(tl e o) S3 «*« **** rJ * f *S e > l ^ Lokt * CdX *™ )A 

-3SS12050 

(ts e r>) 2.667912 

-0*75324953^3 



Ji out?** it 
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